home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / fapx / fapxuset.plp < prev    next >
Text File  |  1991-10-18  |  10KB  |  388 lines
  1. /************************************************************************
  2. *    オートアップロード制御ファイル作成処理                *
  3. *************************************************************************/
  4.  
  5. %SETUP1    {
  6.     dispoff({Yes});
  7.     command    ({del }|TEMP2|{_mopupld.ctl});
  8.     dispoff({No});
  9.     loop    (
  10.         {
  11.         footnote({アップロード先は？});
  12.         SNDMSG({erande_f.snd});
  13.         select    (
  14.             {アップロード先は？},
  15.             Wtime4,{im({No})},
  16.             {テキストメール},{AUTOmail;im({Yes})},
  17.             {バイナリメール},{AUTObmail;im({Yes})},
  18.             {  フォーラム  },{AUTOforum;im({Yes})},
  19.             {ホームパーティ},{AUTOhp;im({Yes})},
  20.             {   終    了   },{im({No})}
  21.             )
  22.         }
  23.         );
  24.     display    ({\n\n});
  25.     command    ({type }|TEMP2|{_mopupld.ctl});
  26.     footnote({制御ファイルを確認してください});
  27.     SNDMSG({kaknin_f.snd});
  28.     select    (
  29.         {制御ファイルを確認してください},
  30.         Wtime4,    {},
  31.         {Ｏ  Ｋ},{},
  32.         {Ｎ  Ｇ},{SETUP1},
  33.         {中  止},{upldcntl:={}}
  34.         );
  35.     };
  36.  
  37. /*    テキストメールアップ制御文作成    */
  38. %AUTOmail
  39.     {
  40.     footnote({メール宛先のＩＤを入力して下さい});
  41.     SNDMSG({nyuryo_f.snd});
  42.     cntl:=    {mail=}|@input({メール宛先のＩＤを入力して下さい\n}|
  43.                 {    ｶﾝﾏ｢,｣で区切って複数指定できます})|{;};
  44.     footnote({題名を入力して下さい});
  45.     SNDMSG({nyuryo_f.snd});
  46.     cntl:=    cntl |    {title=}|@input({題名を入力して下さい})|{;};
  47.     footnote({ｱｯﾌﾟﾛｰﾄﾞﾌｧｲﾙを指定して下さい  memo1～memo9でメモを指定});
  48.     cntl:=    cntl |    {file=}|@FILEsel|{;};
  49.     footnote({日付指定をおこないますか？(エグゼクティブオプション)});
  50.     SNDMSG({erande_f.snd});
  51.     select    (
  52.         {日付指定をおこないますか？(エグゼクティブオプション)},
  53.         Wtime4,
  54.         {cntl:=    cntl |    {date=;}},
  55.         {は  い},
  56.         {
  57.         footnote({指定日付を入力して下さい});
  58.         SNDMSG({nyuryo_f.snd});
  59.         cntl:=    cntl |    {date=}|@input({指定日付を入力して下さい\n}|
  60.                     {    yymmdd(年は西暦下２桁)})|{;};
  61.         },
  62.         {いいえ},
  63.         {cntl:=    cntl |    {date=;}}
  64.         );
  65.     display    ({\n\n}|cntl|{\n});
  66.     footnote({確認してください});
  67.     SNDMSG({kaknin_f.snd});
  68.     select    (
  69.         {確認してください},
  70.         Wtime4,    {},
  71.         {Ｏ  Ｋ},{write(TEMP2|{_mopupld.ctl},cntl|{\n})},
  72.         {Ｎ  Ｇ},{AUTOmail},
  73.         {中  止},{}
  74.         );
  75.     };
  76.  
  77. /*    バイナリメールアップ制御文作成    */
  78. %AUTObmail
  79.     {
  80.     footnote({メール宛先のＩＤを入力して下さい});
  81.     SNDMSG({nyuryo_f.snd});
  82.     cntl:=    {bmail=}|@input({メール宛先のＩＤを入力して下さい\n}|
  83.                 {    ｶﾝﾏ｢,｣で区切って複数指定できます})|{;};
  84.     footnote({題名を入力して下さい});
  85.     SNDMSG({nyuryo_f.snd});
  86.     cntl:=    cntl |    {title=}|@input({題名を入力して下さい})|{;};
  87.     footnote({アップロードファイルを指定して下さい});
  88.     cntl:=    cntl |    {file=}|@FILEsel|{;};
  89.     footnote({日付指定をおこないますか？(エグゼクティブオプション)});
  90.     SNDMSG({erande_f.snd});
  91.     select    (
  92.         {日付指定をおこないますか？(エグゼクティブオプション)},
  93.         Wtime4,
  94.         {cntl:=    cntl |    {date=;}},
  95.         {は  い},
  96.         {
  97.         footnote({指定日付を入力して下さい});
  98.         SNDMSG({nyuryo_f.snd});
  99.         cntl:=    cntl |    {date=}|@input({指定日付を入力して下さい\n}|
  100.                     {    yymmdd(年は西暦下２桁)})|{;};
  101.         },
  102.         {いいえ},
  103.         {cntl:=    cntl |    {date=;}}
  104.         );
  105.     display    ({\n\n}|cntl|{\n});
  106.     footnote({確認してください});
  107.     SNDMSG({kaknin_f.snd});
  108.     select    (
  109.         {確認してください},
  110.         Wtime4,    {},
  111.         {Ｏ  Ｋ},{write(TEMP2|{_mopupld.ctl},cntl|{\n})},
  112.         {Ｎ  Ｇ},{AUTObmail},
  113.         {中  止},{}
  114.         );
  115.     };
  116.  
  117. /*    フォーラム書き込み制御文作成    */
  118. %AUTOforum
  119.     {
  120.     footnote({フォーラム名を入力して下さい});
  121.     SNDMSG({nyuryo_f.snd});
  122.     cntl:=    {forum=}|@input({フォーラム名を入力して下さい})|{;};
  123.     footnote({会議室番号を選択して下さい});
  124.     SNDMSG({erande_f.snd});
  125.     cntl:=    cntl |    {mes=}|@select({会議室番号を選択して下さい},
  126.                     Wtime4,{im({1})},
  127.                     {　１},{im({1})},{　２},{im({2})},
  128.                     {　３},{im({3})},{　４},{im({4})},
  129.                     {　５},{im({5})},{　６},{im({6})},
  130.                     {　７},{im({7})},{　８},{im({8})},
  131.                     {　９},{im({9})},{１０},{im({10})},
  132.                     {１１},{im({11})},{１２},{im({12})},
  133.                     {１３},{im({13})},{１４},{im({14})},
  134.                     {１５},{im({15})},{１６},{im({16})},
  135.                     {１７},{im({17})},{１８},{im({18})},
  136.                     {１９},{im({19})},{２０},{im({20})}
  137.                     )|{;};
  138.     footnote({コメント元の発言番号を入力して下さい});
  139.     SNDMSG({nyuryo_f.snd});
  140.     cntl:=    cntl |    {reply=}|
  141.             @input({コメント元の発言番号を入力して下さい\n}|
  142.                 {    改行のみで新規のメッセージ})|
  143.             {;};
  144.     footnote({題名を入力して下さい});
  145.     SNDMSG({nyuryo_f.snd});
  146.     cntl:=    cntl |    {title=}|@input({題名を入力して下さい})|{;};
  147.     footnote({ｱｯﾌﾟﾛｰﾄﾞﾌｧｲﾙを指定して下さい  memo1～memo9でメモを指定});
  148.     cntl:=    cntl |    {file=}|@FILEsel|{;};
  149.     display    ({\n\n}|cntl|{\n});
  150.     footnote({確認してください});
  151.     SNDMSG({kaknin_f.snd});
  152.     select    (
  153.         {確認してください},
  154.         Wtime4,    {},
  155.         {Ｏ  Ｋ},{write(TEMP2|{_mopupld.ctl},cntl|{\n})},
  156.         {Ｎ  Ｇ},{AUTOforum},
  157.         {中  止},{}
  158.         );
  159.     };
  160.  
  161. /*    ホームパーティ書き込み制御文作成    */
  162. %AUTOhp    {
  163.     footnote({ホームパーティのＩＤを入力して下さい});
  164.     SNDMSG({nyuryo_f.snd});
  165.     cntl:=    {hp=}|@input({ホームパーティのＩＤを入力して下さい})|{;};
  166.     footnote({パスワードを入力して下さい});
  167.     SNDMSG({nyuryo_f.snd});
  168.     cntl:=    cntl |    {pass=}|@input({パスワードを入力して下さい})|{;};
  169.     footnote({題名を入力して下さい});
  170.     SNDMSG({nyuryo_f.snd});
  171.     cntl:=    cntl |    {title=}|@input({題名を入力して下さい})|{;};
  172.     footnote({ｱｯﾌﾟﾛｰﾄﾞﾌｧｲﾙを指定して下さい  memo1～memo9でメモ指定});
  173.     cntl:=    cntl |    {file=}|@FILEsel|{;};
  174.     display    ({\n\n}|cntl|{\n});
  175.     footnote({確認してください});
  176.     SNDMSG({kaknin_f.snd});
  177.     select    (
  178.         {確認してください},
  179.         Wtime4,    {},
  180.         {Ｏ  Ｋ},{write(TEMP2|{_mopupld.ctl},cntl|{\n})},
  181.         {Ｎ  Ｇ},{AUTOhp},
  182.         {中  止},{}
  183.         );
  184.     };
  185.  
  186. /*    アップロードファイル指定処理    */
  187. %FILEsel{
  188.     var    upfile    [64];
  189.     SNDMSG({erande_f.snd});
  190.     upfile:=@filesel;
  191.     case    (
  192.         upfile,
  193.         {},    {im({})},
  194.         {memo1},{im(upfile)},
  195.         {memo2},{im(upfile)},
  196.         {memo3},{im(upfile)},
  197.         {memo4},{im(upfile)},
  198.         {memo5},{im(upfile)},
  199.         {memo6},{im(upfile)},
  200.         {memo7},{im(upfile)},
  201.         {memo8},{im(upfile)},
  202.         {memo9},{im(upfile)},
  203.         ,    {case    (
  204.                 @nochar(@getcdir)=3,
  205.                 {Yes},    {upfile:=@getcdir|upfile},
  206.                 {No},    {upfile:=@getcdir|{\}|upfile}
  207.                 )
  208.             }
  209.         );
  210.     im(upfile);
  211.     };
  212.  
  213. /************************************************************************
  214. *    アップロード制御ファイルを指定する                *
  215. *************************************************************************/
  216. %SETCNTL1
  217.     {
  218.     var    cntl    [256];
  219.     upldcntl:={};
  220.     footnote({制御ファイルの種類は？});
  221.     SNDMSG({erande_f.snd});
  222.     select    (
  223.         {制御ファイルの種類は？},
  224.         Wtime4,,
  225.         { メ  モ },
  226.         {case    (
  227.             @mlast,
  228.             0,
  229.             {
  230.             footnote({メモがありません　次の処理は？});
  231.             SNDMSG({erande_f.snd});
  232.             select    (
  233.                 {メモがありません},
  234.                 Wtime4,,
  235.                 {再指定},SETCNTL,
  236.                 {中  止},
  237.                 )
  238.             },
  239.             1,
  240.             {upldcntl:={memo1}},
  241.             2,
  242.             {
  243.             footnote({メモ番号は？});
  244.             SNDMSG({erande_f.snd});
  245.             select    (
  246.                 {メモ番号は？},
  247.                 Wtime4,,
  248.                 {メモ１},{upldcntl:={memo1}},
  249.                 {メモ２},{upldcntl:={memo2}}
  250.                 )
  251.             },
  252.             3,
  253.             {
  254.             footnote({メモ番号は？});
  255.             SNDMSG({erande_f.snd});
  256.             select    (
  257.                 {メモ番号は？},
  258.                 Wtime4,,
  259.                 {メモ１},{upldcntl:={memo1}},
  260.                 {メモ２},{upldcntl:={memo2}},
  261.                 {メモ３},{upldcntl:={memo3}}
  262.                 )
  263.             },
  264.             4,
  265.             {
  266.             footnote({メモ番号は？});
  267.             SNDMSG({erande_f.snd});
  268.             select    (
  269.                 {メモ番号は？},
  270.                 Wtime4,,
  271.                 {メモ１},{upldcntl:={memo1}},
  272.                 {メモ２},{upldcntl:={memo2}},
  273.                 {メモ３},{upldcntl:={memo3}},
  274.                 {メモ４},{upldcntl:={memo4}}
  275.                 )
  276.             },
  277.             5,
  278.             {
  279.             footnote({メモ番号は？});
  280.             SNDMSG({erande_f.snd});
  281.             select    (
  282.                 {メモ番号は？},
  283.                 Wtime4,,
  284.                 {メモ１},{upldcntl:={memo1}},
  285.                 {メモ２},{upldcntl:={memo2}},
  286.                 {メモ３},{upldcntl:={memo3}},
  287.                 {メモ４},{upldcntl:={memo4}},
  288.                 {メモ５},{upldcntl:={memo5}}
  289.                 )
  290.             },
  291.             6,
  292.             {
  293.             footnote({メモ番号は？});
  294.             SNDMSG({erande_f.snd});
  295.             select    (
  296.                 {メモ番号は？},
  297.                 Wtime4,,
  298.                 {メモ１},{upldcntl:={memo1}},
  299.                 {メモ２},{upldcntl:={memo2}},
  300.                 {メモ３},{upldcntl:={memo3}},
  301.                 {メモ４},{upldcntl:={memo4}},
  302.                 {メモ５},{upldcntl:={memo5}},
  303.                 {メモ６},{upldcntl:={memo6}}
  304.                 )
  305.             },
  306.             7,
  307.             {
  308.             footnote({メモ番号は？});
  309.             SNDMSG({erande_f.snd});
  310.             select    (
  311.                 {メモ番号は？},
  312.                 Wtime4,,
  313.                 {メモ１},{upldcntl:={memo1}},
  314.                 {メモ２},{upldcntl:={memo2}},
  315.                 {メモ３},{upldcntl:={memo3}},
  316.                 {メモ４},{upldcntl:={memo4}},
  317.                 {メモ５},{upldcntl:={memo5}},
  318.                 {メモ６},{upldcntl:={memo6}},
  319.                 {メモ７},{upldcntl:={memo7}}
  320.                 )
  321.             },
  322.             8,
  323.             {
  324.             footnote({メモ番号は？});
  325.             SNDMSG({erande_f.snd});
  326.             select    (
  327.                 {メモ番号は？},
  328.                 Wtime4,,
  329.                 {メモ１},{upldcntl:={memo1}},
  330.                 {メモ２},{upldcntl:={memo2}},
  331.                 {メモ３},{upldcntl:={memo3}},
  332.                 {メモ４},{upldcntl:={memo4}},
  333.                 {メモ５},{upldcntl:={memo5}},
  334.                 {メモ６},{upldcntl:={memo6}},
  335.                 {メモ７},{upldcntl:={memo7}},
  336.                 {メモ８},{upldcntl:={memo8}}
  337.                 )
  338.             },
  339.             9,
  340.             {
  341.             footnote({メモ番号は？});
  342.             SNDMSG({erande_f.snd});
  343.             select    (
  344.                 {メモ番号は？},
  345.                 Wtime4,,
  346.                 {メモ１},{upldcntl:={memo1}},
  347.                 {メモ２},{upldcntl:={memo2}},
  348.                 {メモ３},{upldcntl:={memo3}},
  349.                 {メモ４},{upldcntl:={memo4}},
  350.                 {メモ５},{upldcntl:={memo5}},
  351.                 {メモ６},{upldcntl:={memo6}},
  352.                 {メモ７},{upldcntl:={memo7}},
  353.                 {メモ８},{upldcntl:={memo8}},
  354.                 {メモ９},{upldcntl:={memo9}}
  355.                 )
  356.             }
  357.             );
  358.         },
  359.         {ファイル},
  360.         {
  361.         footnote({アップロード制御ファイルは？});
  362.         SNDMSG({erande_f.snd});
  363.         upldcntl:=@filesel;
  364.         case    (
  365.             upldcntl={},
  366.             {No},
  367.             {
  368.             case    (
  369.                 @nochar(@getcdir)==3,
  370.                 {Yes},        /* root dir */
  371.                 {upldcntl:=@getcdir|upldcntl},
  372.                 {No},
  373.                 {upldcntl:=@getcdir|{\}|upldcntl}
  374.                 )
  375.             },
  376.             {Yes},
  377.             );
  378.         },
  379.         {新規作成},
  380.         {
  381.         SETUP1;
  382.         upldcntl:=TEMP2|{_mopupld.ctl};
  383.         }
  384.         );
  385.     };
  386.  
  387. SETCNTL1;
  388.